home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / NEWMENU.TCL < prev    next >
Encoding:
Text File  |  2002-08-01  |  50.7 KB  |  1,692 lines
  1. #-------------------------------------------------------------------------------
  2. # newmenu.tcl
  3. #
  4. # NOMADS main- and ingame-menus.
  5. #
  6. #   06-May-02   floh    menuhandler now created in envinit.tcl!
  7. #   15-May-02   floh    FlushAudio in nm_killgame
  8. #-------------------------------------------------------------------------------
  9.  
  10. global demoFlag
  11. global devstation
  12.  
  13.  
  14. #===============================================================================
  15. #
  16. # Utility functions
  17. #
  18. #===============================================================================
  19.  
  20. #-------------------------------------------------------------------------------
  21. # Play the menu music
  22. #-------------------------------------------------------------------------------
  23. proc nm_menumusic {} {
  24.     /world.playsound book:music/danger3.wav
  25. }
  26.  
  27. #-------------------------------------------------------------------------------
  28. # Show main menu
  29. #-------------------------------------------------------------------------------
  30. proc nm_mainmenu {} {
  31.     /sys/servers/menuhandler.openmenu "main"
  32.     nm_menumusic
  33. }
  34.  
  35. #-------------------------------------------------------------------------------
  36. # Endgame menu
  37. #-------------------------------------------------------------------------------
  38. proc nm_ingame_endgame {} {
  39.  
  40.     # mute and flush audio
  41.     /sys/servers/audio.flushaudio 0 0
  42.  
  43.     if {[/world.ispaused] == "false"} {
  44.         /world.pausegame
  45.     }
  46.     
  47.     /sys/servers/menuhandler.openmenu "ingame_endgame"
  48.     /sys/servers/menuhandler.reset
  49. }
  50.  
  51. #-------------------------------------------------------------------------------
  52. # Credits
  53. #-------------------------------------------------------------------------------
  54. proc nm_credits {} {
  55.     /sys/servers/menuhandler.showcredits "/data/if_credits/cred" 0
  56. }
  57.  
  58. #-------------------------------------------------------------------------------
  59. # Singleplayer character selection
  60. #-------------------------------------------------------------------------------
  61. proc nm_character_single {} {
  62. global demoFlag
  63.  
  64.     if {$demoFlag} {
  65.  
  66.         # demo distribution: directly start game with char_john
  67.         set character_proto char_john
  68.         m_newgame        
  69.  
  70.     } else {
  71.  
  72.         # Set channels for characters first.
  73.         /sys/servers/channel.setchannel1f will_horiz 0.5
  74.         /sys/servers/channel.setchannel1f will_vert 0.5
  75.         
  76.         # Open character menu
  77.         /sys/servers/menuhandler.openmenu "character_singleplayer"
  78.     }
  79. }
  80. #-------------------------------------------------------------------------------
  81. # Load single player game
  82. #
  83. #   04-Jul-02   floh    fastposses wurde generell aktiviert, das ist falsch, 
  84. #                       weil damit der Zustand von Makegame ueberschrieben wurde
  85. #-------------------------------------------------------------------------------
  86. proc nm_loadgame_single {name} {
  87. global home    
  88.     if {[file exists $home/save/$name.n] == 1} {
  89.         /world.loadgame home:save/$name.n
  90.         
  91.         # Restart point wiederherstellen
  92.         if {[file exists $home/save/restart_$name.n] == 1} {
  93.             file copy -force $home/save/restart_$name.n $home/save/restartpoint.n
  94.         }
  95.  
  96.         # Continue game if paused (ingame menu)
  97.         if {[/world.ispaused]} {
  98.             /world.contgame
  99.         }
  100.     } else {
  101.         puts "Save slot is empty."
  102.         /sys/servers/menuhandler.cancelmenu
  103.     }
  104.     
  105.     # update the save point savegame
  106.     savepoint
  107. }
  108.  
  109. #-------------------------------------------------------------------------------
  110. # Save current game
  111. #-------------------------------------------------------------------------------
  112. proc nm_savegame_single {name} {
  113. global home    
  114.  
  115.     # Save game and take screenshot
  116.     /world.savegame home:save/$name
  117.     
  118.     # Restart point mit abspeichern
  119.     if {[file exists $home/save/restartpoint.n] == 1} {
  120.         file copy -force $home/save/restartpoint.n $home/save/restart_$name.n
  121.     }
  122.     
  123.     /world.refreshdisplay
  124.     /sys/servers/gfx.scaledscreenshot $home/save/$name.bmp 128 128
  125.  
  126.     # Unpause and restore input mapping
  127.     if {[/world.ispaused]} {
  128.         /world.contgame
  129.     }
  130. }
  131.  
  132. #-------------------------------------------------------------------------------
  133. # Load island+character files and show character selection screen (Server)
  134. #-------------------------------------------------------------------------------
  135. proc nm_load_character_server {} {
  136. global home
  137.  
  138.     # Hack: Set channels for characters first.
  139.     /sys/servers/channel.setchannel1f will_horiz 0.5
  140.     /sys/servers/channel.setchannel1f will_vert 0.5
  141.  
  142.     # Open character selection menu
  143.     /sys/servers/menuhandler.openmenu "character_server"
  144. }
  145.  
  146. #-------------------------------------------------------------------------------
  147. # Load island+character files and show character selection screen (Client)
  148. #-------------------------------------------------------------------------------
  149. proc nm_load_character_client {} {
  150. global home
  151.  
  152.     # Hack: Set channels for characters first.
  153.     /sys/servers/channel.setchannel1f will_horiz 0.5
  154.     /sys/servers/channel.setchannel1f will_vert 0.5
  155.  
  156.     # Open character selection menu
  157.     /sys/servers/menuhandler.openmenu "character_client"
  158. }
  159.  
  160. #-------------------------------------------------------------------------------
  161. # Select Character+Island slot for multiplayer session (Server)
  162. #-------------------------------------------------------------------------------
  163. proc nm_character_server {slot} {
  164. global character_proto
  165.  
  166.     # Set choosen character
  167.     set character_proto $slot.n
  168.  
  169.     # Open multiplayer load game panel
  170.     /sys/servers/menuhandler.openmenu "loadgame_multiplayer"
  171. }
  172.  
  173. #-------------------------------------------------------------------------------
  174. # Close ingame menu
  175. #-------------------------------------------------------------------------------
  176. proc nm_continue_game {} {
  177.     
  178.     /sys/servers/menuhandler.closemenu
  179.     /sys/servers/menuhandler.reset
  180.     
  181.     # Restore handcontrol if unset (Multiplayer).
  182.     if {[/world.gethandcontrol] == "null"} {
  183.         set carrier [/world.getviewercarrier]
  184.         /world.sethandcontrol $carrier
  185.     }
  186.     
  187.     # Continue game if paused (Singleplayer).
  188.     if {[/world.ispaused] == "true"} {
  189.         /world.contgame
  190.     }
  191. }
  192.  
  193. #-------------------------------------------------------------------------------
  194. # Restart level
  195. #-------------------------------------------------------------------------------
  196. proc nm_restartlevel {} {
  197.     
  198.     /sys/servers/menuhandler.closemenu
  199.     /sys/servers/menuhandler.reset
  200.     
  201.     # Continue game if paused (Singleplayer).
  202.     if {[/world.ispaused] == "true"} {
  203.         /world.contgame
  204.     }
  205.     
  206.     restartlevel
  207. }
  208.  
  209. #-------------------------------------------------------------------------------
  210. # Open single player loadgame screen
  211. #-------------------------------------------------------------------------------
  212. proc nm_open_loadgame_single {} {
  213.     
  214.     # Open load game panel
  215.     /sys/servers/menuhandler.openmenu "loadgame_singleplayer"
  216. }
  217.  
  218. #-------------------------------------------------------------------------------
  219. # Open single player loadgame screen
  220. #-------------------------------------------------------------------------------
  221. proc nm_open_savegame_single {} {
  222.     
  223.     # Open load game panel
  224.     /sys/servers/menuhandler.openmenu "savegame_singleplayer"
  225. }
  226.  
  227. #-------------------------------------------------------------------------------
  228. # Select Character+Island slot for multiplayer session (Client)
  229. #-------------------------------------------------------------------------------
  230. proc nm_character_client {slot} {
  231. global character_proto
  232.  
  233.     # Set choosen character
  234.     set character_proto $slot.n
  235.  
  236.     # Open multiplayer load game panel
  237.     nm_sessionlist_multiplayer
  238. }
  239.  
  240.  
  241. #-------------------------------------------------------------------------------
  242. # Load multiplayer game
  243. #-------------------------------------------------------------------------------
  244. proc nm_loadgame_multi {slot} {
  245. global home
  246.  
  247.     if {[file exists $home/mplevels/$slot.n] == 1} {
  248.  
  249.         # Make filename and load game
  250.         set filename $home/mplevels/$slot
  251.         /world.pausegame
  252.         /world.loadmultiplayergame $filename
  253.  
  254.         # Open multiplayer session
  255.         /world.opensession $slot
  256.  
  257.         # Create character 
  258.         m_createcharacter
  259.  
  260.         # Load client side win/loose handling script
  261.         source $home/scripts/client.tcl
  262.  
  263.         # Setup multiplayer collision table (true => Multiplayer).
  264.         setup_colltable true
  265.  
  266.         # Continue game and fade in
  267.         if {[/world.ispaused]} {
  268.             /world.contgame
  269.         }
  270.         fadein
  271.     
  272.         # Load default event handling.
  273.         source $home/book/defaultevents.tcl
  274.  
  275.         # Choose viewer        
  276.         /world.setviewer2 "/world/viewers/chaseviewer"
  277.     
  278.         # Show `Waiting for other players' menu
  279.         /sys/servers/menuhandler.openmenu "multiplayer_waithost"
  280.         /sys/servers/menuhandler.reset
  281.  
  282.     } else {
  283.         puts "Warning: Slot does not exist."
  284.         /sys/servers/menuhandler.cancelmenu
  285.     }
  286. }
  287.  
  288. #-------------------------------------------------------------------------------
  289. #   Update selected options gui entries from the actual preferences.
  290. #-------------------------------------------------------------------------------
  291. proc nm_updateoptions {name} {
  292.     set value [/world.getpref $name]
  293.     for {set i 0} {$i < $value} {incr i} {
  294.         /world/gui/menus/options/entries/$name/submenu.right
  295.     }
  296. }
  297.  
  298. #-------------------------------------------------------------------------------
  299. # Open `Options' menu and initialize submenu items from env variables
  300. #-------------------------------------------------------------------------------
  301. proc nm_options {} {
  302.  
  303.     # load current prefs settings
  304.     /world.loadprefs
  305.  
  306.     # Open menu
  307.     /sys/servers/menuhandler.openmenu "options"
  308.  
  309.     # Position sub entries; setting variables must exist!!
  310.     
  311.     # update selected option entries
  312.     nm_updateoptions resolution
  313.     nm_updateoptions details
  314.     nm_updateoptions invertmouse
  315.     nm_updateoptions volume
  316.     nm_updateoptions sensitivity
  317. }
  318.  
  319. #-------------------------------------------------------------------------------
  320. # Continue.
  321. #-------------------------------------------------------------------------------
  322. proc nm_contgame {} {
  323.  
  324.     # Load savepoint
  325.     loadsavepoint
  326.  
  327.     # Continue game    
  328.     if {[/world.ispaused]} {
  329.         /world.contgame
  330.     }
  331. }
  332.  
  333. #-------------------------------------------------------------------------------
  334. #  Nearly quit running game
  335. #-------------------------------------------------------------------------------
  336. proc nm_killgame {last} {
  337.     global confirmedMenu
  338.     set confirmedMenu $last
  339.     /sys/servers/menuhandler.openmenu "really_abort"
  340.     
  341. }
  342.  
  343. proc nm_goback {} {
  344.     global confirmedMenu
  345.     /sys/servers/menuhandler.openmenu $confirmedMenu
  346.     
  347. }
  348.  
  349. #-------------------------------------------------------------------------------
  350. #   Thanks for playing screen, this will be displayed when the 
  351. #   the player has successfully finished the last level.
  352. #-------------------------------------------------------------------------------
  353. proc nm_thanxforplaying {} {
  354.     # mute and flush audio
  355.     /sys/servers/audio.flushaudio 0 0
  356.     
  357.     # Kill artefacts
  358.     delete_possessicon
  359.     delete_artefacts
  360.     delete_ebar
  361.     delete_helpscreen
  362.  
  363.     # Quit game; delete all world objects
  364.     /world.killgame
  365.  
  366.     if {[/world.ispaused]} {
  367.         /world.contgame
  368.     }
  369.  
  370.     # Load singleplayer collision table (false => Singleplayer)
  371.     setup_colltable false
  372.  
  373.     # Show thanx for playing menu
  374.    
  375.     /sys/servers/menuhandler.reset
  376.     /sys/servers/menuhandler.hideallbars
  377.     global demoFlag
  378.     if {$demoFlag} {
  379.         /sys/servers/menuhandler.openmenu "thxforplaying"
  380.     } else {
  381.         nm_credits
  382.     }
  383.         
  384. }
  385.  
  386. #-------------------------------------------------------------------------------
  387. #  Really quit running game
  388. #-------------------------------------------------------------------------------
  389. proc nm_reallykillgame {} {
  390.     # mute and flush audio
  391.     /sys/servers/audio.flushaudio 0 0
  392.     
  393.     # Kill artefacts
  394.     delete_possessicon
  395.     delete_artefacts
  396.     delete_ebar
  397.     delete_helpscreen
  398.  
  399.     # Quit game; delete all world objects
  400.     /world.killgame
  401.  
  402.     if {[/world.ispaused]} {
  403.         /world.contgame
  404.     }
  405.  
  406.     # Load singleplayer collision table (false => Singleplayer)
  407.     setup_colltable false
  408.     
  409.     # Reset viewer
  410.     /world.setviewer2 "/world/viewers/chaseviewer"
  411.  
  412.     # Show main menu
  413.     nm_mainmenu
  414.     /sys/servers/menuhandler.reset
  415.     /sys/servers/menuhandler.hideallbars
  416. }
  417.  
  418. #-------------------------------------------------------------------------------
  419. # Join multiplayer session
  420. #-------------------------------------------------------------------------------
  421. proc nm_sessionlist_multiplayer {} {
  422.  
  423.     # Get list of open session
  424.     /sys/servers/menuhandler.showinfoscreen looking
  425.     set num [/sys/servers/comm.asksessions 0 0]
  426.     /sys/servers/menuhandler.hideinfoscreen
  427.  
  428.     if {$num == 0} {
  429.         puts "No open sessions available."
  430.         /sys/servers/menuhandler.openmenu nosessions
  431.     } else {
  432.         /sys/servers/menuhandler.openmenu sessionlist_multiplayer
  433.     }
  434. }
  435.  
  436. #-------------------------------------------------------------------------------
  437. # Join multiplayer session
  438. #-------------------------------------------------------------------------------
  439. proc nm_joinsession_multiplayer {session} {
  440. global home
  441.  
  442.     # Show loading screen.
  443.     /sys/servers/menuhandler.showinfoscreen loading
  444.     puts "*** Joining session $session. \n"
  445.  
  446.     # Joining session
  447.     if {[/world.joinsession $session] == "false"} {
  448.         puts "Joining session $session failed. "
  449.         # Hide loading screen.
  450.         /sys/servers/menuhandler.hideinfoscreen
  451.  
  452.         # Failed, go back to multiplayer menu
  453.         /world.killgame
  454.         # /sys/servers/menuhandler.cancelmenu
  455.  
  456.         /sys/servers/menuhandler.openmenu nosessions
  457.         return
  458.     }
  459.  
  460.     # Load client side win/loose handling script
  461.     source $home/scripts/client.tcl
  462.     
  463.     # Setup multiplayer collision table (true => Multiplayer).
  464.     setup_colltable true
  465.  
  466.     # Create character
  467.     m_createcharacter
  468.     
  469.     # Load default event handling.
  470.     source $home/book/defaultevents.tcl
  471.     
  472.     # Activate fast possess.
  473.     /world.activatefastpossess
  474.     
  475.     # Hide loading screen.
  476.     /sys/servers/menuhandler.hideinfoscreen
  477.     
  478.     # Choose viewer        
  479.     /world.setviewer2 "/world/viewers/chaseviewer"
  480.     
  481.     # Show `Waiting for other players' menu
  482. #    /world.pausegame
  483.     /sys/servers/menuhandler.openmenu "multiplayer_waitclient"
  484.     /sys/servers/menuhandler.reset
  485. }
  486.  
  487. #-------------------------------------------------------------------------------
  488. # Start session.
  489. #-------------------------------------------------------------------------------
  490. proc nm_startsession {} {
  491.     /world.startsession
  492.     /world.activatefastpossess
  493. }
  494.  
  495. #-------------------------------------------------------------------------------
  496. #
  497. # Main Menu
  498. #
  499. #-------------------------------------------------------------------------------
  500. sel /world/gui
  501.  
  502. new nroot menus
  503. sel menus
  504.  
  505. new nguistandardmenu main
  506. sel main
  507.     .settitle main
  508.     .settitlerect -0.5 0.5 0.96 0.55
  509.     .setabortable false
  510.  
  511.     # Entries
  512.     new nroot entries
  513.     sel entries
  514.  
  515.         if {!$demoFlag} {
  516.             set y0 0.5
  517.             set y1 0.2
  518.         } else {
  519.             set y0 0.3
  520.             set y1 0.0
  521.         }
  522.  
  523.         # Singleplayer
  524.         new nguistandardmenuentry singleplayer
  525.         sel singleplayer
  526.             .setrect -0.4 0.4 $y0 $y1
  527.             .setcommand "/sys/servers/menuhandler.openmenu singleplayer"
  528.         sel ..
  529.  
  530.         set y0 $y1
  531.         set y1 [expr ($y1 - 0.3)]
  532.  
  533.         if {!$demoFlag} {
  534.             # Multiplayer
  535.             new nguistandardmenuentry multiplayer
  536.             sel multiplayer
  537.                 .setrect -0.4 0.4 $y0 $y1
  538.                 .setcommand "/sys/servers/menuhandler.openmenu multiplayer"
  539.             sel ..
  540.  
  541.             set y0 $y1
  542.             set y1 [expr ($y1 - 0.3)]
  543.         }
  544.  
  545.         # Options
  546.         new nguistandardmenuentry options
  547.         sel options
  548.             .setrect -0.4 0.4 $y0 $y1
  549.             .setcommand "nm_options"
  550.         sel ..
  551.  
  552.         set y0 $y1
  553.         set y1 [expr ($y1 - 0.3)]
  554.  
  555.         # Quit game
  556.         new nguistandardmenuentry leavegame
  557.         sel leavegame
  558.             .setrect -0.4 0.4 $y0 $y1
  559.             .setcommand "/sys/servers/menuhandler.openmenu really_exit"
  560.         sel ..
  561.  
  562.         set y0 $y1
  563.         set y1 [expr ($y1 - 0.3)]
  564.  
  565.         # Credits
  566.         if {!$demoFlag} {
  567.             new nguistandardmenuentry credits
  568.             sel credits
  569.                 .setrect -0.4 0.4 $y0 $y1
  570.                 .setcommand "nm_credits"
  571.             sel ..
  572.         }
  573.  
  574.         if {$devstation && (!$demoFlag)} {
  575.             # Run test book
  576.             new nguistandardmenuentry debug
  577.             sel debug
  578.                 .setrect 0.7 1.0 -0.6 -0.9
  579.                 .setcommand "/sys/servers/menuhandler.closemenu; m_testbook"
  580.             sel ..
  581.         }
  582.     sel ..
  583. sel ..
  584.  
  585.  
  586. #-------------------------------------------------------------------------------
  587. # Single player
  588. #-------------------------------------------------------------------------------
  589. new nguistandardmenu singleplayer
  590. sel singleplayer
  591.  
  592.     new nroot entries
  593.     sel entries
  594.  
  595.         new nguistandardmenuentry newgame
  596.         sel newgame
  597.             .setrect -0.4 0.4 0.45 0.15 
  598.             .setcommand "nm_character_single"
  599.         sel ..
  600.  
  601.         new nguistandardmenuentry loadgame
  602.         sel loadgame
  603.             .setrect -0.4 0.4 0.15 -0.15
  604.             .setcommand "nm_open_loadgame_single"
  605.         sel ..
  606.  
  607.         new nguistandardmenuentry cancel
  608.         sel cancel
  609.             .setrect -0.4 0.4 -0.15 -0.45
  610.             .setcommand "/sys/servers/menuhandler.cancelmenu"
  611.         sel ..
  612.     sel ..
  613. sel ..
  614.  
  615.  
  616. #-------------------------------------------------------------------------------
  617. # Multi player
  618. #-------------------------------------------------------------------------------
  619. new nguistandardmenu multiplayer
  620. sel multiplayer
  621.  
  622.     new nroot entries
  623.     sel entries
  624.  
  625.         new nguistandardmenuentry sharesession
  626.         sel sharesession
  627.             .setrect -0.4 0.4 0.45 0.15 
  628.             .setcommand "nm_load_character_server"
  629.         sel ..
  630.  
  631.         new nguistandardmenuentry joinsession
  632.         sel joinsession
  633.             .setrect -0.4 0.4 0.15 -0.15
  634.             .setcommand "nm_load_character_client"
  635.         sel ..
  636.  
  637.         new nguistandardmenuentry cancel
  638.         sel cancel
  639.             .setrect -0.4 0.4 -0.15 -0.45
  640.             .setcommand "/sys/servers/menuhandler.cancelmenu"
  641.         sel ..
  642.     sel ..
  643. sel ..
  644.  
  645.  
  646. #-------------------------------------------------------------------------------
  647. #   Options
  648. #-------------------------------------------------------------------------------
  649. new nguistandardmenu options
  650. sel options
  651.     .settitle options
  652.  
  653.     # Entries
  654.     new nroot entries
  655.     sel entries
  656.  
  657.         set b_left -0.95
  658.         set b_right -0.25
  659.         
  660.         # resolution
  661.         new nguistandardmenuentry resolution
  662.         sel resolution
  663.             .setrect $b_left $b_right 0.6 0.35
  664.  
  665.             # Submenu
  666.             new nguistandardmenu submenu
  667.             sel submenu
  668.                 .setmouseoverselect false
  669.             
  670.                 # Entries
  671.                 new nroot entries
  672.                 sel entries
  673.                 
  674.                     # Low
  675.                     new nguistandardmenuentry 640_480
  676.                     sel 640_480
  677.                         .setrect -0.2 0.2 0.6 0.35
  678.                         .setcommand "/world.setpref resolution 0"
  679.                     sel ..
  680.  
  681.                     # Medium
  682.                     new nguistandardmenuentry 800_600
  683.                     sel 800_600
  684.                         .setrect 0.2 0.6 0.6 0.35
  685.                         .setcommand "/world.setpref resolution 1"
  686.                     sel ..
  687.  
  688.                     # High
  689.                     new nguistandardmenuentry 1024_768
  690.                     sel 1024_768
  691.                         .setrect 0.6 1.0 0.6 0.35
  692.                         .setcommand "/world.setpref resolution 2"
  693.                     sel ..
  694.                 sel ..
  695.             sel ..
  696.         sel ..
  697.  
  698.         # details
  699.         new nguistandardmenuentry details
  700.         sel details
  701.             .setrect $b_left $b_right 0.35 0.1
  702.  
  703.             # Submenu
  704.             new nguistandardmenu submenu
  705.             sel submenu
  706.                 .setmouseoverselect false
  707.  
  708.                 # Entries
  709.                 new nroot entries
  710.                 sel entries
  711.  
  712.                     # Low
  713.                     new nguistandardmenuentry low
  714.                     sel low
  715.                         .setrect -0.2 0.2 0.35 0.1
  716.                         .setcommand "/world.setpref details 0"
  717.                     sel ..
  718.                 
  719.                     # Medium
  720.                     new nguistandardmenuentry med
  721.                     sel med
  722.                         .setrect  0.2 0.6 0.35 0.1
  723.                         .setcommand "/world.setpref details 1"
  724.                     sel ..
  725.  
  726.                     # High
  727.                     new nguistandardmenuentry high
  728.                     sel high
  729.                         .setrect 0.6 1.0 0.35 0.1
  730.                         .setcommand "/world.setpref details 2"
  731.                     sel ..
  732.                 sel ..
  733.             sel ..
  734.         sel ..
  735.  
  736.         # invert mouse
  737.         new nguistandardmenuentry invertmouse
  738.         sel invertmouse
  739.             .setrect $b_left $b_right 0.1 -0.15
  740.             
  741.             # Submenu
  742.             new nguistandardmenu submenu
  743.             sel submenu
  744.                 .setmouseoverselect false
  745.  
  746.                 # Entries
  747.                 new nroot entries
  748.                 sel entries
  749.                 
  750.                     # Medium
  751.                     new nguistandardmenuentry yes
  752.                     sel yes
  753.                         .setrect -0.2 0.2 0.1 -0.15
  754.                         .setcommand "/world.setpref invertmouse 0"
  755.                     sel ..
  756.  
  757.                     # High
  758.                     new nguistandardmenuentry no
  759.                     sel no
  760.                         .setrect 0.2 0.6 0.1 -0.15
  761.                         .setcommand "/world.setpref invertmouse 1"
  762.                     sel ..
  763.                 sel ..
  764.             sel ..
  765.         sel ..
  766.  
  767.         # volume
  768.         new nguistandardmenuentry volume
  769.         sel volume
  770.             .setrect $b_left $b_right -0.15 -0.4
  771.  
  772.             # Submenu
  773.             new nguistandardmenu submenu
  774.             sel submenu
  775.                 .setmouseoverselect false
  776.  
  777.                 # Entries
  778.                 new nroot entries
  779.                 sel entries
  780.  
  781.                     set m_top -0.15
  782.                     set m_bot -0.35
  783.                     set m_left -0.15
  784.                     set m_width 0.14
  785.                 
  786.                     new nguistandardmenuentry 1
  787.                     sel 1
  788.                         .setrect $m_left [expr $m_left + 1*$m_width] $m_top $m_bot
  789.                         .setcommand "/world.setpref volume 0"
  790.                     sel ..
  791.  
  792.                     new nguistandardmenuentry 2
  793.                     sel 2
  794.                         .setrect [expr $m_left + 1*$m_width] [expr $m_left + 2*$m_width] $m_top $m_bot
  795.                         .setcommand "/world.setpref volume 1"
  796.                     sel ..
  797.  
  798.                     new nguistandardmenuentry 3
  799.                     sel 3
  800.                         .setrect [expr $m_left + 2*$m_width] [expr $m_left + 3*$m_width] $m_top $m_bot
  801.                         .setcommand "/world.setpref volume 2"
  802.                     sel ..
  803.  
  804.                     new nguistandardmenuentry 4
  805.                     sel 4
  806.                         .setrect [expr $m_left + 3*$m_width] [expr $m_left + 4*$m_width] $m_top $m_bot
  807.                         .setcommand "/world.setpref volume 3"
  808.                     sel ..
  809.  
  810.                     new nguistandardmenuentry 5
  811.                     sel 5
  812.                         .setrect [expr $m_left + 4*$m_width] [expr $m_left + 5*$m_width] $m_top $m_bot
  813.                         .setcommand "/world.setpref volume 4"
  814.                     sel ..
  815.  
  816.                 sel ..  
  817.             sel ..
  818.         sel ..
  819.  
  820.         # mouse sensitity
  821.         new nguistandardmenuentry sensitivity
  822.         sel sensitivity
  823.             .setrect $b_left $b_right -0.4 -0.65
  824.             # Submenu
  825.             new nguistandardmenu submenu
  826.             sel submenu
  827.                 .setmouseoverselect false
  828.  
  829.                 # Entries
  830.                 new nroot entries
  831.                 sel entries
  832.                 
  833.                     set m_top -0.4
  834.                     set m_bot -0.6
  835.                     set m_left -0.15
  836.                     set m_width 0.14
  837.  
  838.                     new nguistandardmenuentry 1
  839.                     sel 1
  840.                         .setrect $m_left [expr $m_left + 1*$m_width] $m_top $m_bot
  841.                         .setcommand "/world.setpref sensitivity 0"
  842.                     sel ..
  843.  
  844.                     new nguistandardmenuentry 2
  845.                     sel 2
  846.                         .setrect [expr $m_left + 1*$m_width] [expr $m_left + 2*$m_width] $m_top $m_bot
  847.                         .setcommand "/world.setpref sensitivity 1"
  848.                     sel ..
  849.  
  850.                     new nguistandardmenuentry 3
  851.                     sel 3
  852.                         .setrect [expr $m_left + 2*$m_width] [expr $m_left + 3*$m_width] $m_top $m_bot
  853.                         .setcommand "/world.setpref sensitivity 2"
  854.                     sel ..
  855.  
  856.                     new nguistandardmenuentry 4
  857.                     sel 4
  858.                         .setrect [expr $m_left + 3*$m_width] [expr $m_left + 4*$m_width] $m_top $m_bot
  859.                         .setcommand "/world.setpref sensitivity 3"
  860.                     sel ..
  861.  
  862.                     new nguistandardmenuentry 5
  863.                     sel 5
  864.                         .setrect [expr $m_left + 4*$m_width] [expr $m_left + 5*$m_width] $m_top $m_bot
  865.                         .setcommand "/world.setpref sensitivity 4"
  866.                     sel ..
  867.  
  868.                 sel ..  
  869.             sel ..
  870.         sel ..
  871.  
  872.  
  873.         # accept
  874.         new nguistandardmenuentry apply
  875.         sel apply
  876.             .setrect -0.8 -0.2 -0.7 -1.0
  877.             .setcommand "/world.saveprefs; /world.applyprefs; /sys/servers/menuhandler.cancelmenu"
  878.         sel ..
  879.  
  880.         # cancel
  881.         new nguistandardmenuentry cancel
  882.         sel cancel
  883.             .setrect 0.2 0.8 -0.7 -1.0
  884.             .setcommand "/world.loadprefs; /sys/servers/menuhandler.cancelmenu"
  885.         sel ..
  886.  
  887.     sel ..
  888.  
  889. sel ..
  890.  
  891.  
  892. #-------------------------------------------------------------------------------
  893. # Load game panel for single player mode
  894. #-------------------------------------------------------------------------------
  895. new nguiloadsavepanel loadgame_singleplayer
  896. sel loadgame_singleplayer
  897.     .setdirectory "home:save/"
  898.     .setmaxentries 20
  899.     .setnumentriesx 5
  900.     .setnumentriesy 4
  901.     .setcommand "nm_loadgame_single"
  902.     .settitle loadgame_singleplayer
  903. sel ..
  904.  
  905.  
  906. #-------------------------------------------------------------------------------
  907. # Save game panel
  908. #-------------------------------------------------------------------------------
  909. new nguiloadsavepanel savegame_singleplayer
  910. sel savegame_singleplayer
  911.     .setdirectory "home:save/"
  912.     .setmaxentries 20
  913.     .setnumentriesx 5
  914.     .setnumentriesy 4
  915.     .setcommand "nm_savegame_single"
  916.     .settitle savegame_singleplayer
  917. sel ..
  918.  
  919. #-------------------------------------------------------------------------------
  920. #   Procedure generates the character menu cursor and lighting.
  921. #-------------------------------------------------------------------------------
  922. proc nm_charactermenu_cursor {} {
  923.  
  924.     # Cursor
  925.     new n3dnode cursor
  926.     sel cursor
  927.  
  928.         new n3dnode gegenlicht
  929.             sel gegenlicht
  930.             ry 45
  931.             rx -45
  932.             new nlightnode light
  933.                 sel light
  934.                 .settype directional
  935.                 .setcolor 0 0.25 1 1
  936.             sel ..
  937.         sel ..
  938.  
  939.         # Glowing cursor
  940.         new n3dnode glow
  941.         sel glow
  942.             .txyz 0 -0.9 0
  943.     
  944.             # Mesh
  945.             new nmeshnode mesh
  946.             sel mesh
  947.                 .setfilename "lib:glow2/plane.nvx"
  948.             sel ..
  949.     
  950.             # Texture
  951.             new ntexarraynode tex
  952.             sel tex
  953.                 .settexture 0 "lib:glow2/texturenone.ntx" none
  954.             sel ..
  955.     
  956.             # Shader
  957.             new nlinknode shader
  958.             sel shader
  959.                 .settarget "/data/shaders/additive_orange"
  960.             sel ..
  961.         sel ..
  962.     
  963.         new n3dnode gegenlicht
  964.             sel gegenlicht
  965.             ry 45
  966.             rx -45
  967.             new nlightnode light
  968.                 sel light
  969.                 .settype directional
  970.                 .setcolor 0 0.25 1 1
  971.             sel ..
  972.         sel ..
  973.     
  974.         # Light
  975.         new n3dnode light
  976.         sel light
  977.             .txyz 0 1 0.5
  978.             .setactive true
  979.     
  980.              new nlightnode light
  981.              sel light
  982.                  .settype point
  983.                  .setcolor 0.5 0.3 0 1
  984.                  .setattenuation 0 0 0.5
  985.              sel ..
  986.         sel ..
  987.     sel ..
  988. }
  989.  
  990. #-------------------------------------------------------------------------------
  991. # Character selection
  992. #-------------------------------------------------------------------------------
  993. new nguistandardmenu character_singleplayer
  994. sel character_singleplayer
  995.     .settitle character_singleplayer
  996.  
  997.     # cursor
  998.     nm_charactermenu_cursor
  999.  
  1000.     # entries
  1001.     new nroot entries
  1002.     sel entries
  1003.     
  1004.         # goliath
  1005.         new nguicharacterentry goliath
  1006.         sel goliath
  1007.             .setposition -0.8 0 -2.45
  1008.             .setorientation 0 220 0
  1009.             .setrect -1.0 -0.2 0.6 -1.0
  1010.             .setcommand "/sys/servers/menuhandler.closemenu; set character_proto char_goliath; m_newgame"
  1011.             new nguistandardmenuentry goliath
  1012.             sel goliath
  1013.                 .setrect -0.6 -0.2 0.3 0.15
  1014.             sel ..
  1015.         sel ..
  1016.         
  1017.         # john
  1018.         new nguicharacterentry john
  1019.         sel john
  1020.             .setposition 0.2 0 -2.05
  1021.             .setorientation 0 180 0
  1022.             .setrect -0.2 0.3 0.6 -1.0
  1023.             .setcommand "/sys/servers/menuhandler.closemenu; set character_proto char_john; m_newgame"
  1024.             new nguistandardmenuentry john
  1025.             sel john
  1026.                 .setrect -0.15 0.25 0.25 0.1
  1027.             sel ..
  1028.         sel ..
  1029.         
  1030.         # susie
  1031.         new nguicharacterentry susie
  1032.         sel susie
  1033.             .setposition 1.0 0 -2.2
  1034.             .setorientation 0 140 0
  1035.             .setrect 0.3 1.0 0.6 -1.0
  1036.             .setcommand "/sys/servers/menuhandler.closemenu; set character_proto char_susie; m_newgame"
  1037.             new nguistandardmenuentry susie
  1038.             sel susie
  1039.                 .setrect 0.3 0.7 0.2 0.05
  1040.             sel ..
  1041.         sel ..
  1042.     sel ..
  1043. sel ..
  1044.  
  1045.  
  1046. #-------------------------------------------------------------------------------
  1047. # Ingame singleplayer
  1048. #-------------------------------------------------------------------------------
  1049. new nguistandardmenu ingame_singleplayer
  1050. sel ingame_singleplayer
  1051.     
  1052.     new nroot entries
  1053.     sel entries
  1054.     
  1055.         set m_left -0.36
  1056.         set m_right 0.36
  1057.         set m_top 0.78
  1058.         set m_height 0.27
  1059.         
  1060.         set m_oben $m_top
  1061.         set m_unten [expr $m_oben - $m_height]        
  1062.     
  1063.         new nguistandardmenuentry continue
  1064.         sel continue
  1065.             .setrect $m_left $m_right $m_oben $m_unten
  1066.             .setcommand "nm_continue_game"
  1067.         sel ..
  1068.         
  1069.         set m_oben [expr $m_oben - $m_height]
  1070.         set m_unten [expr $m_unten - $m_height]
  1071.  
  1072.         new nguistandardmenuentry savegame
  1073.         sel savegame
  1074.             .setrect $m_left $m_right $m_oben $m_unten
  1075.             .setcommand "nm_open_savegame_single"
  1076.         sel ..
  1077.         
  1078.         set m_oben [expr $m_oben - $m_height]
  1079.         set m_unten [expr $m_unten - $m_height]
  1080.  
  1081.         new nguistandardmenuentry loadgame
  1082.         sel loadgame
  1083.             .setrect $m_left $m_right $m_oben $m_unten
  1084.             .setcommand "nm_open_loadgame_single"
  1085.         sel ..
  1086.         
  1087.         set m_oben [expr $m_oben - $m_height]
  1088.         set m_unten [expr $m_unten - $m_height]
  1089.  
  1090.         new nguistandardmenuentry restart
  1091.         sel restart
  1092.             .setrect $m_left $m_right $m_oben $m_unten
  1093.             .setcommand "nm_restartlevel"
  1094.         sel ..
  1095.         
  1096.         set m_oben [expr $m_oben - $m_height]
  1097.         set m_unten [expr $m_unten - $m_height]
  1098.         
  1099.         new nguistandardmenuentry options
  1100.         sel options
  1101.             .setrect $m_left $m_right $m_oben $m_unten
  1102.             .setcommand "nm_options"
  1103.         sel ..
  1104.         
  1105.         set m_oben [expr $m_oben - $m_height]
  1106.         set m_unten [expr $m_unten - $m_height]
  1107.  
  1108.         new nguistandardmenuentry killgame
  1109.         sel killgame
  1110.             .setrect $m_left $m_right $m_oben $m_unten
  1111.             .setcommand "nm_killgame ingame_singleplayer"
  1112.         sel ..
  1113.     sel ..
  1114. sel ..
  1115.  
  1116. #-------------------------------------------------------------------------------
  1117. #   Ingame Endgame Menu
  1118. #
  1119. #   Shown when the player dies. 
  1120. #-------------------------------------------------------------------------------
  1121. new nguistandardmenu ingame_endgame
  1122. sel ingame_endgame
  1123.     .settitle you_loose
  1124.     .setabortable false
  1125.     
  1126.     new nroot entries
  1127.     sel entries
  1128.         new nguistandardmenuentry restart
  1129.         sel restart
  1130.             .setrect -0.4 0.4 0.45 0.15
  1131.             .setcommand "nm_restartlevel"
  1132.         sel ..
  1133.         
  1134.         new nguistandardmenuentry loadgame
  1135.         sel loadgame
  1136.             .setrect -0.4 0.4 0.15 -0.15
  1137.             .setcommand "nm_open_loadgame_single"
  1138.         sel ..
  1139.             
  1140.         new nguistandardmenuentry killgame
  1141.         sel killgame
  1142.             .setrect -0.4 0.4 -0.15 -0.45
  1143.             .setcommand "/sys/servers/menuhandler.openmenu ingame_confirm"
  1144.         sel ..
  1145.     sel ..
  1146. sel ..
  1147.  
  1148. #-------------------------------------------------------------------------------
  1149. # Ingame Endgame Confirm
  1150. #-------------------------------------------------------------------------------
  1151. new nguistandardmenu ingame_confirm
  1152. sel ingame_confirm
  1153.     .settitlerect -0.4 0.4 0.3 0.0
  1154.     .settitle ingame_confirm
  1155.     .setabortable false
  1156.  
  1157.     new nroot entries
  1158.     sel entries
  1159.         new nguistandardmenuentry no
  1160.         sel no
  1161.             .setrect -0.8 0.0 0.0 -0.3
  1162.             .setcommand "nm_ingame_endgame"
  1163.         sel ..
  1164.         new nguistandardmenuentry yes
  1165.         sel yes
  1166.             .setrect 0.0 0.8 0.0 -0.3
  1167.             .setcommand "nm_reallykillgame"
  1168.         sel ..
  1169.     sel ..
  1170. sel ..
  1171.  
  1172. #-------------------------------------------------------------------------------
  1173. # Do you really want to exit?
  1174. #-------------------------------------------------------------------------------
  1175. new nguistandardmenu really_exit
  1176. sel really_exit
  1177.     .settitlerect -0.4 0.4 0.3 0.0
  1178.     .settitle really_exit
  1179.     .setabortable true
  1180.     new nroot entries
  1181.     sel entries
  1182.         new nguistandardmenuentry no
  1183.         sel no
  1184.             .setrect -0.8 0.0 0.0 -0.3
  1185.             .setcommand "/sys/servers/menuhandler.openmenu main"
  1186.         sel ..
  1187.         new nguistandardmenuentry yes
  1188.         sel yes
  1189.             .setrect 0.0 0.8 0.0 -0.3
  1190.             .setcommand "/world.stopgame"
  1191.         sel ..
  1192.     sel ..
  1193. sel ..
  1194.  
  1195. #-------------------------------------------------------------------------------
  1196. #   Thanks for playing menu
  1197. #-------------------------------------------------------------------------------
  1198. new nguistandardmenu thxforplaying
  1199. sel thxforplaying
  1200.     .settitle thxforplaying
  1201.     .setbackground locale:if_win.bmp
  1202.     .setcancelselects true
  1203.  
  1204.     new nroot entries
  1205.     sel entries
  1206.         new nguistandardmenuentry continue
  1207.         sel continue
  1208.             .setrect 0.2 1.0 -0.7 -1.0
  1209.             .setcommand "nm_mainmenu"
  1210.         sel ..
  1211.     sel ..
  1212. sel ..
  1213.  
  1214. #-------------------------------------------------------------------------------
  1215. # Do you really want to abort?
  1216. #-------------------------------------------------------------------------------
  1217. new nguistandardmenu really_abort
  1218. sel really_abort
  1219.     .settitlerect -0.4 0.4 0.3 0.0
  1220.     .settitle really_abort
  1221.     .setabortable true
  1222.     new nroot entries
  1223.     sel entries
  1224.         new nguistandardmenuentry no
  1225.         sel no
  1226.             .setrect -0.8 0.0 0.0 -0.3
  1227.             .setcommand "nm_goback"
  1228.         sel ..
  1229.         new nguistandardmenuentry yes
  1230.         sel yes
  1231.             .setrect 0.0 0.8 0.0 -0.3
  1232.             .setcommand "nm_reallykillgame"
  1233.         sel ..
  1234.     sel ..
  1235. sel ..
  1236. #-------------------------------------------------------------------------------
  1237. # Ingame multiplayer
  1238. #-------------------------------------------------------------------------------
  1239. new nguistandardmenu ingame_multiplayer
  1240. sel ingame_multiplayer
  1241.     
  1242.     new nroot entries
  1243.     sel entries
  1244.  
  1245.         # Continue
  1246.         new nguistandardmenuentry continue
  1247.         sel continue
  1248.             .setrect -0.4 0.4 0.45 0.15
  1249.             .setcommand "nm_continue_game"
  1250.         sel ..
  1251.         
  1252.         # Options
  1253.         new nguistandardmenuentry options
  1254.         sel options
  1255.             .setrect -0.4 0.4 0.15 -0.15
  1256.             .setcommand "nm_options"
  1257.         sel ..
  1258.  
  1259.         # Quit game
  1260.         new nguistandardmenuentry killgame
  1261.         sel killgame
  1262.             .setrect -0.4 0.4 -0.15 -0.45
  1263.             .setcommand "nm_killgame ingame_multiplayer"
  1264.         sel ..
  1265.     sel ..
  1266. sel ..
  1267.  
  1268.  
  1269. #-------------------------------------------------------------------------------
  1270. # Multiplayer character selection (Server)
  1271. #-------------------------------------------------------------------------------
  1272. new nguistandardmenu character_server
  1273. sel character_server
  1274.     .settitle character_server
  1275.  
  1276.     # cursor
  1277.     nm_charactermenu_cursor
  1278.  
  1279.     # entries
  1280.     new nroot entries
  1281.     sel entries
  1282.  
  1283.         # goliath
  1284.         new nguicharacterentry goliath
  1285.         sel goliath
  1286.             .setposition -0.8 0 -2.45
  1287.             .setorientation 0 220 0
  1288.             .setrect -1.0 -0.2 0.6 -1.0
  1289.             .setcommand "nm_character_server goliath"
  1290.             new nguistandardmenuentry goliath
  1291.             sel goliath
  1292.                 .setrect -0.6 -0.2 0.3 0.15
  1293.             sel ..
  1294.         sel ..
  1295.         
  1296.         # john
  1297.         new nguicharacterentry john
  1298.         sel john
  1299.             .setposition 0.2 0 -2.05
  1300.             .setorientation 0 180 0
  1301.             .setrect -0.2 0.3 0.6 -1.0
  1302.             .setcommand "nm_character_server john"
  1303.             new nguistandardmenuentry john
  1304.             sel john
  1305.                 .setrect -0.15 0.25 0.25 0.1
  1306.             sel ..
  1307.         sel ..
  1308.         
  1309.         # susie
  1310.         new nguicharacterentry susie
  1311.         sel susie
  1312.             .setposition 1.0 0 -2.2
  1313.             .setorientation 0 140 0
  1314.             .setrect 0.3 1.0 0.6 -1.0
  1315.             .setcommand "nm_character_server susie"
  1316.             new nguistandardmenuentry susie
  1317.             sel susie
  1318.                 .setrect 0.3 0.7 0.2 0.05
  1319.             sel ..
  1320.         sel ..
  1321.     sel ..
  1322. sel ..
  1323.  
  1324.  
  1325. #-------------------------------------------------------------------------------
  1326. # Multiplayer character selection (Client)
  1327. #-------------------------------------------------------------------------------
  1328. new nguistandardmenu character_client
  1329. sel character_client
  1330.     .settitle character_client
  1331.  
  1332.     # cursor
  1333.     nm_charactermenu_cursor
  1334.  
  1335.     # entries
  1336.     new nroot entries
  1337.     sel entries
  1338.     
  1339.         # goliath
  1340.         new nguicharacterentry goliath
  1341.         sel goliath
  1342.             .setposition -0.8 0 -2.45
  1343.             .setorientation 0 220 0
  1344.             .setrect -1.0 -0.2 0.6 -1.0
  1345.             .setcommand "nm_character_client goliath"
  1346.             new nguistandardmenuentry goliath
  1347.             sel goliath
  1348.                 .setrect -0.6 -0.2 0.3 0.15
  1349.             sel ..
  1350.         sel ..
  1351.         
  1352.         # john
  1353.         new nguicharacterentry john
  1354.         sel john
  1355.             .setposition 0.2 0 -2.05
  1356.             .setorientation 0 180 0
  1357.             .setrect -0.2 0.3 0.6 -1.0
  1358.             .setcommand "nm_character_client john"
  1359.             new nguistandardmenuentry john
  1360.             sel john
  1361.                 .setrect -0.15 0.25 0.25 0.1
  1362.             sel ..
  1363.         sel ..
  1364.         
  1365.         # susie
  1366.         new nguicharacterentry susie
  1367.         sel susie
  1368.             .setposition 1.0 0 -2.2
  1369.             .setorientation 0 140 0
  1370.             .setrect 0.3 1.0 0.6 -1.0
  1371.             .setcommand "nm_character_client susie"
  1372.             new nguistandardmenuentry susie
  1373.             sel susie
  1374.                 .setrect 0.3 0.7 0.2 0.05
  1375.             sel ..
  1376.         sel ..
  1377.     sel ..
  1378. sel ..
  1379.  
  1380. #-------------------------------------------------------------------------------
  1381. # Load game panel for multi player mode
  1382. #-------------------------------------------------------------------------------
  1383. new nguiloadsavepanel loadgame_multiplayer
  1384. sel loadgame_multiplayer
  1385.     .setdirectory "home:mplevels/"
  1386.     .setmaxentries 15
  1387.     .setnumentriesx 5
  1388.     .setnumentriesy 4
  1389.     .setcommand "nm_loadgame_multi"
  1390.     .settitle loadgame_multiplayer
  1391. sel ..
  1392.  
  1393.  
  1394. #-------------------------------------------------------------------------------
  1395. # Multiplayer session list
  1396. #-------------------------------------------------------------------------------
  1397. new nguisessionspanel sessionlist_multiplayer
  1398. sel sessionlist_multiplayer
  1399.     .setnumentriesx 5
  1400.     .setnumentriesy 4
  1401.     .setcommand "nm_joinsession_multiplayer"
  1402. sel ..
  1403.  
  1404.  
  1405. #-------------------------------------------------------------------------------
  1406. # Multiplayer loose game menu
  1407. #-------------------------------------------------------------------------------
  1408. new nguistandardmenu multiplayer_loose
  1409. sel multiplayer_loose
  1410.     .settitle multiplayer_loose
  1411.     .setabortable false
  1412.  
  1413.     # Entries
  1414.     new nroot entries
  1415.     sel entries
  1416.         
  1417.         # Exit
  1418.         new nguistandardmenuentry killgame
  1419.         sel killgame
  1420.             .setrect -0.4 0.4 0.15 -0.15
  1421.             .setcommand "nm_killgame multiplayer_loose"
  1422.         sel ..
  1423.     sel ..
  1424. sel ..
  1425.  
  1426.  
  1427. #-------------------------------------------------------------------------------
  1428. # Multiplayer win game menu
  1429. #-------------------------------------------------------------------------------
  1430. new nguistandardmenu multiplayer_win
  1431. sel multiplayer_win
  1432.     .settitle multiplayer_win
  1433.     .setabortable false
  1434.  
  1435.     # Entries
  1436.     new nroot entries
  1437.     sel entries
  1438.         
  1439.         # Exit
  1440.         new nguistandardmenuentry killgame
  1441.         sel killgame
  1442.             .setrect -0.4 0.4 0.15 -0.15
  1443.             .setcommand "nm_killgame multiplayer_win"
  1444.         sel ..
  1445.     sel ..
  1446. sel ..
  1447.  
  1448.  
  1449. #-------------------------------------------------------------------------------
  1450. # Multiplayer wait for start game menu
  1451. #-------------------------------------------------------------------------------
  1452. new nguistandardmenu multiplayer_waitclient
  1453. sel multiplayer_waitclient
  1454.     .settitle multiplayer_waitclient
  1455.     .setabortable false
  1456.     
  1457.     # Entries
  1458.     new nroot entries
  1459.     sel entries
  1460.     
  1461.         # Exit
  1462.         new nguistandardmenuentry killgame
  1463.         sel killgame
  1464.             .setrect -0.4 0.4 0.15 -0.15
  1465.             .setcommand "nm_killgame multiplayer_waitclient"
  1466.         sel ..
  1467.     sel ..
  1468. sel ..    
  1469.  
  1470. #-------------------------------------------------------------------------------
  1471. # Multiplayer start game menu
  1472. #-------------------------------------------------------------------------------
  1473. new nguistandardmenu multiplayer_waithost
  1474. sel multiplayer_waithost
  1475.     .settitle multiplayer_waithost
  1476.     .setabortable false
  1477.     
  1478.     # Entries
  1479.     new nroot entries
  1480.     sel entries
  1481.     
  1482.         # Start
  1483.         new nguistandardmenuentry start
  1484.         sel start
  1485.             .setrect -0.4 0.4 0.3 0.0
  1486.             .setcommand "nm_startsession"
  1487.         sel ..
  1488.         
  1489.         # Exit
  1490.         new nguistandardmenuentry killgame
  1491.         sel killgame
  1492.             .setrect -0.4 0.4 0. -0.3
  1493.             .setcommand "nm_killgame multiplayer_waithost"
  1494.         sel ..
  1495.     sel ..
  1496. sel ..    
  1497.  
  1498.  
  1499. #-------------------------------------------------------------------------------
  1500. # Multiplayer connection lost
  1501. #-------------------------------------------------------------------------------
  1502. new nguistandardmenu connection_lost
  1503. sel connection_lost
  1504.     .settitle connection_lost
  1505.     .setabortable false
  1506.     
  1507.     # Entries
  1508.     new nroot entries
  1509.     sel entries
  1510.     
  1511.         # Exit
  1512.         new nguistandardmenuentry killgame
  1513.         sel killgame
  1514.             .setrect -0.4 0.4 0.15 -0.15
  1515.             .setcommand "nm_reallykillgame"
  1516.         sel ..
  1517.     sel ..
  1518. sel ..    
  1519.  
  1520. #-------------------------------------------------------------------------------
  1521. # Multiplayer "no sessions found" menu
  1522. #-------------------------------------------------------------------------------
  1523. new nguistandardmenu nosessions
  1524. sel nosessions
  1525.     .settitle nosessions
  1526.     
  1527.     # Entries
  1528.     new nroot entries
  1529.     sel entries
  1530.     
  1531.         # Try again
  1532.         new nguistandardmenuentry tryagain
  1533.         sel tryagain
  1534.             .setrect -0.4 0.4 0.3 0.0
  1535.             .setcommand "nm_sessionlist_multiplayer"
  1536.         sel ..
  1537.         
  1538.         # Exit
  1539.         new nguistandardmenuentry killgame
  1540.         sel killgame
  1541.             .setrect -0.4 0.4 0.0 -0.3
  1542.             .setcommand "nm_reallykillgame"
  1543.         sel ..
  1544.         
  1545.     sel ..
  1546. sel ..    
  1547.  
  1548.  
  1549. #-------------------------------------------------------------------------------
  1550. # Maennel/Clan/Distance bars
  1551. #-------------------------------------------------------------------------------
  1552. sel /world/gui
  1553. new nroot bars
  1554. sel bars
  1555.  
  1556. #-------------------------------------------------------------------------------
  1557. # Life bar (Default visual is for JOHN, but will be modified in CODE!!!)
  1558. #-------------------------------------------------------------------------------
  1559. new nguibar life
  1560. sel life
  1561.     .setvisual "/data/if_ebar/ebar/leben_char_john/content"
  1562.     .setleftvisual "/data/if_ebar/ebar/leben_char_john/life_bar/left"
  1563.     .setmiddlevisual "/data/if_ebar/ebar/leben_char_john/life_bar/middle"
  1564.     .setrightvisual "/data/if_ebar/ebar/leben_char_john/life_bar/right"
  1565.     
  1566.     .setbasemax 20
  1567.     .setmax 50
  1568.     .setextension 10
  1569.     
  1570.     .setpos -1.7 1.25 -2
  1571.     .setleftpos -1.7 1.25 -2
  1572.     .setmiddlepos -1.1 1.25 -2
  1573.     .setmiddleoffset 0.2 0 0
  1574.     .setrightpos -1.14 1.25 -2
  1575. sel ..
  1576.  
  1577. #-------------------------------------------------------------------------------
  1578. # Life bar for flak
  1579. #-------------------------------------------------------------------------------
  1580. new nguibar flak
  1581. sel flak
  1582.     .setvisual "/data/if_ebar/ebar/flak/content"
  1583.     .setleftvisual "/data/if_ebar/ebar/flak/life_bar/left"
  1584.     .setmiddlevisual "/data/if_ebar/ebar/flak/life_bar/middle"
  1585.     .setrightvisual "/data/if_ebar/ebar/flak/life_bar/right"
  1586.     
  1587.     .setbasemax 20
  1588.     .setmax 20
  1589.     .setextension 10
  1590.     
  1591.     .setpos -1.7 1.25 -2
  1592.     .setleftpos -1.7 1.25 -2
  1593.     .setmiddlepos -1.1 1.25 -2
  1594.     .setmiddleoffset 0.2 0 0
  1595.     .setrightpos -1.14 1.25 -2
  1596. sel ..
  1597.  
  1598.  
  1599. #-------------------------------------------------------------------------------
  1600. # Life bar for vehicle
  1601. #-------------------------------------------------------------------------------
  1602. new nguibar vehicle
  1603. sel vehicle
  1604.     .setvisual "/data/if_ebar/ebar/vhcl/content"
  1605.     .setleftvisual "/data/if_ebar/ebar/vhcl/life_bar/left"
  1606.     .setmiddlevisual "/data/if_ebar/ebar/vhcl/life_bar/middle"
  1607.     .setrightvisual "/data/if_ebar/ebar/vhcl/life_bar/right"
  1608.     
  1609.     .setbasemax 20
  1610.     .setmax 20
  1611.     .setextension 10
  1612.     
  1613.     .setpos -1.7 1.25 -2
  1614.     .setleftpos -1.7 1.25 -2
  1615.     .setmiddlepos -1.1 1.25 -2
  1616.     .setmiddleoffset 0.2 0 0
  1617.     .setrightpos -1.14 1.25 -2
  1618. sel ..
  1619.  
  1620.  
  1621. #-------------------------------------------------------------------------------
  1622. # Clan energy bar
  1623. #-------------------------------------------------------------------------------
  1624. new nguibar clan_energy
  1625. sel clan_energy
  1626.  
  1627.     .setvisual "/data/if_ebar/ebar/kraft/content"
  1628.     .setleftvisual "/data/if_ebar/ebar/kraft/energy_bar/left"
  1629.     .setmiddlevisual "/data/if_ebar/ebar/kraft/energy_bar/middle"
  1630.     .setrightvisual "/data/if_ebar/ebar/kraft/energy_bar/right"
  1631.     
  1632.     .setbasemax 25
  1633.     .setmax 35
  1634.     .setextension 5
  1635.     
  1636.     .setpos -1.77 -1.4 -2.0
  1637.     .setleftpos -1.9 -1.2 -2.0
  1638.     .setmiddlepos -1.9 -0.9 -2.0
  1639.     .setmiddleoffset 0.0 0.1 0.0
  1640.     .setrightpos -1.9 -0.92 -2.0
  1641. sel ..
  1642.  
  1643.  
  1644. #-------------------------------------------------------------------------------
  1645. # Bar for vertical distance to island.
  1646. #-------------------------------------------------------------------------------
  1647. new nguibar vertical_distance
  1648. sel vertical_distance
  1649.     .setvisual "/data/if_ebar/distancebar/verti"
  1650.     .setpos 1.4 -0.92 -2.0
  1651. sel ..
  1652.  
  1653. #-------------------------------------------------------------------------------
  1654. # Bar for horizontal distance to island.
  1655. #-------------------------------------------------------------------------------
  1656. new nguibar horizontal_distance
  1657. sel horizontal_distance
  1658.     .setvisual "/data/if_ebar/distancebar/hori"
  1659.     .setpos 1.4 -0.92 -2.0
  1660. sel ..
  1661.  
  1662. #-------------------------------------------------------------------------------
  1663. # Eventhandler-procs fuer Menuesounds
  1664. #-------------------------------------------------------------------------------
  1665. on __menuselect {
  1666.     # plop
  1667.     playfeedbacksound book:feedback/menueover.wav
  1668. }
  1669.  
  1670. # FLOH auskommentiert, wegen Ladepausen-Sound-Artefakte
  1671. # (neue Menues haben eine Verzoegerung drin, weil die Bitmaps
  1672. # geladen werden muessen, deshalb gibt es Audio-Artefakte)
  1673. on __menuaction {
  1674.     # pling
  1675.     # playfeedbacksound book:feedback/use_ok.wav
  1676. }
  1677.  
  1678. # FLOH auskommentiert, wegen Ladepausen-Sound-Artefakte
  1679. # (neue Menues haben eine Verzoegerung drin, weil die Bitmaps
  1680. # geladen werden muessen, deshalb gibt es Audio-Artefakte)
  1681. on __menuclose {
  1682.     # wusch
  1683.     # playfeedbacksound book:feedback/taken_control.wav
  1684. }
  1685.  
  1686. #-------------------------------------------------------------------------------
  1687. # Start with main menu
  1688. #-------------------------------------------------------------------------------
  1689. /sys/servers/menuhandler.reset
  1690. #/sys/servers/menuhandler.openmenu "main"
  1691. /sys/servers/menuhandler.showcredits "/data/if_intro/welcome" 10
  1692.